home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
RA_WIN31.ZIP
/
FDUP.BAT
< prev
next >
Wrap
DOS Batch File
|
1994-03-10
|
3KB
|
117 lines
@Echo off
:-------------------------------------------------------------------------:
: Front Door main system batch file for Flashpoint! BBS :
: Should be called by Fdstub.Bat :
:-------------------------------------------------------------------------:
:
:System Settings
:
Echo Front Door - Initialising System
Rem Call \M_Set.Bat
Call \Flash_At.Bat
Set Task=1
Call Cya.Bat
Cd \Gecho
Mbutil Import C:\Fd\Netmail\ Netmail
Gecho Mgr
Gecho Scan Toss
Cd \Fd
:
:Start
:
Rem Atsend s86?
Call Cya.Bat
If Not Exist C:\Ra\Attach\23241312.2\Flashpnt.Sub Goto Post_Sub
:Continue
Echo Front Door - Starting
Dos_Bbs /d2000 /B
If Errorlevel 1 Goto Again
Goto Shutdown
:Post_Sub
Md \Ra\Attach\23241312.2
Copy \Ra\Files\General\Flashpnt.Sub \Ra\Attach\23241312.2\Flashpnt.Sub
Goto Continue
:
:Again
:
Cls
Echo Running Flash Point BBS Batch File.
Echo Loading FrontDoor Now !
Cd \Ra\Line1
C:\Ra\Ra -mc:\fd\fd.exe*M -E20 -N1
Cd \Fd
:
:Loop
:
IF ERRORLEVEL 255 GOTO Start
IF ERRORLEVEL 222 goto Mail
IF ERRORLEVEL 191 GOTO Wakeup
IF ERRORLEVEL 190 GOTO Comnode
IF ERRORLEVEL 33 GOTO Shutdown
IF ERRORLEVEL 20 Goto Start
IF ERRORLEVEL 10 GOTO End
IF ERRORLEVEL 5 GOTO Mail
IF ERRORLEVEL 4 GOTO Mail
IF ERRORLEVEL 3 GOTO Mail
IF ERRORLEVEL 0 GOTO Mail
Goto Start
:
:Mail
:
Cd \Gecho
Mbutil Import C:\Fd\Netmail\ Netmail
Gecho Mgr
Gecho Scan Toss
Goto Start
:
:Wakeup
:
Call C:\Ra\Daily.Bat
Goto Again
:
:Comnode
:
Echo Added new nodelists!
Cd\Fd\Nodelist
Daynbr /-2 Copy z:\fd\files\nodediff.@l## /v
Daynbr /-2 Lha e /cm Nodediff.@l##
Daynbr /-2 Del Nodediff.@l##
Xlatlist SEA CLE FOR Fidonet.Ctl
Cd\fd
Fdnc /F
cd\ra
RaNode
goto Start
:
:Shutdown
:
Echo ********************************
Echo * Shutdown -- turn the BBS off *
Echo ********************************
Echo
Goto The End
:
:Error
:
Echo *************************
Echo * An Error Has Occurred *
Echo *************************
Echo
Goto The End
:
:End
:
Echo ******************************
Echo * The End Of Flash Point BBS *
Echo ******************************
Task 4 Reload Flash Point BBS [Y/N] :
IF ERRORLEVEL 2 GOTO Start
IF ERRORLEVEL 1 GOTO The End
IF ERRORLEVEL 0 GOTO Start
:
:The End
:
Echo *****************************
Echo * T-H-E E-N-D !! *
Echo *****************************